SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TTTIPO_OPER_I02]  
/*-------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                 --*/  
/*---Cliente              : OFISIS      --*/  
/*---Sistema              : Tesoreria     --*/  
/*---M¸dulo               : Adminstaci©n                --*/  
/*---Programa             : Copia Tipo Operaci©n Y Detalle --*/  
/*---Nombre SP            : SP_TTTIPO_OPER_I02         --*/  
/*---Desarrollado por     : Carlos Marquez Escobar  --*/  
/*---Fecha Creaci¸n       : 11/11/2005     --*/  
/*---Base Datos           : Microsoft Sql Server  --*/  
/*---Versi¸n              : 8.0       --*/  
/*---Invoca a SP          :        --*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/  
/*---Comentarios  Detalle y Cambia Libro Contable      --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/        
/*---Modificado 2 por     : Miguel Carrasco                       --*/        
/*---Fecha Modificaci÷n   : 02/07/2009                 --*/         
/*---Detalle Modificaci÷n : GRABA TAMBIEN DETALLE DE DOCUMENTOS--*/  
/*------------------------------------------------------ */  
/* Drop Proc SP_TTTIPO_OPER_I02      */  
/* Grant Execute On SP_TTTIPO_OPER_I02 To Public    */  
/* SP_TTTIPO_OPER_I02 '01', 'OFISIS','001', '010' , 'OP10 COPIA OP', '013' */  
/*-------------------------------------------------------*/  
 @ISCO_EMPR TD_VC_002,   
 @ISCO_USUA TD_VC_008,  
 @ISCO_TIOP_0001 TD_VC_003,   
 @ISCO_TIOP_0002 TD_VC_003,  
 @ISDE_TIPO_OPE2 TD_VC_050,  
 @ISCO_OPRC_CNTB TD_VC_003  
  
 as  
  
 Begin Tran SP_TTTIPO_OPER_I02  
  
 --- Tipo de Operacion   
  Insert TTTIPO_OPER (  
   CO_EMPR, CO_TIPO_OPER, CO_GRUP_OPER, DE_TIPO_OPER, TI_MOVI,   
   ST_CAJA, ST_BANC, ST_CTAC, ST_CTAP, ST_DETA_DOCU,   
   ST_REPO_CAJA, ST_ENRE_OTRO, ST_Tran_BANC, ST_Tran_CAJA,   
   ST_AUXI_0001, ST_AUXI_0002, ST_AUXI_0003, ST_AUXI_0004,   
   ST_AUXI_0005, ST_AUXI_0006, ST_AUXI_0007, ST_AUXI_0008,   
   ST_AUXI_0009, ST_AUXI_0010, ST_REEM_ENRE, CO_SUBR, TI_SITU,   
   CO_USUA_CREA, CO_USUA_MODI, CO_MEPA )                 
  Select CO_EMPR, @ISCO_TIOP_0002 CO_TIPO_OPER, CO_GRUP_OPER, @ISDE_TIPO_OPE2 DE_TIPO_OPER, TI_MOVI,   
   ST_CAJA, ST_BANC, ST_CTAC, ST_CTAP, ST_DETA_DOCU,   
   ST_REPO_CAJA, ST_ENRE_OTRO, ST_Tran_BANC, ST_Tran_CAJA,   
   ST_AUXI_0001, ST_AUXI_0002, ST_AUXI_0003, ST_AUXI_0004,   
   ST_AUXI_0005, ST_AUXI_0006, ST_AUXI_0007, ST_AUXI_0008,   
   ST_AUXI_0009, ST_AUXI_0010, ST_REEM_ENRE, CO_SUBR,'ACT' TI_SITU,   
   @ISCO_USUA CO_USUA_CREA, @ISCO_USUA CO_USUA_MODI, CO_MEPA
  From TTTIPO_OPER  
  Where CO_EMPR = @ISCO_EMPR   
  And   CO_TIPO_OPER = @ISCO_TIOP_0001  
  
        if @@error <> 0  
           Begin  
             rollback Tran SP_TTTIPO_OPER_I02  
             return  
           end  
  
 --- Detalle del Operacion   
  Insert TDTIPO_OPER (  
   CO_EMPR, CO_TIPO_OPER, NU_CORR, ID_INTE,  
   NU_DETA, CO_OPRC_CNTB, NU_ASTO, CO_CNTA_EMPR,  
   CO_MONE, IN_CNTA_MONE, TI_AUXI_EMPR, TI_DOCU,  
   TI_DOCU_REFE, TI_MOVI, IM_0001, OP_ARIT_0001,  
   IM_0002, OP_ARIT_0002, IM_0003, DE_GLOS,  
   CO_USUA_CREA, CO_USUA_MODI  
  )  
  Select  CO_EMPR, @ISCO_TIOP_0002, NU_CORR, ID_INTE,  
    NU_DETA, @ISCO_OPRC_CNTB, NU_ASTO, CO_CNTA_EMPR,  
    CO_MONE, IN_CNTA_MONE, TI_AUXI_EMPR, TI_DOCU,  
    TI_DOCU_REFE, TI_MOVI, IM_0001, OP_ARIT_0001,  
    IM_0002, OP_ARIT_0002, IM_0003, DE_GLOS,  
    @ISCO_USUA, @ISCO_USUA  
  From TDTIPO_OPER  
     Where CO_EMPR = @ISCO_EMPR   
     AND   CO_TIPO_OPER = @ISCO_TIOP_0001  
  
        if @@error <> 0  
           Begin  
             rollback Tran SP_TTTIPO_OPER_I02  
             return  
           end  


    Insert Into TRTIOP_DCNT (CO_EMPR, CO_TIPO_OPER, NU_CORR, TI_DOCU, CO_CNTA_EMPR, NV_INFO_CNTA, IN_CNTA_MONE, CO_MONE, 
                  ST_AUXI_EMPR, TI_AUXI_EMPR, DE_GLOS)
                  Select  
                  CO_EMPR, @ISCO_TIOP_0002, NU_CORR, TI_DOCU, CO_CNTA_EMPR, NV_INFO_CNTA, IN_CNTA_MONE, CO_MONE, 
                  ST_AUXI_EMPR, TI_AUXI_EMPR, DE_GLOS
                  from TRTIOP_DCNT
                  Where CO_EMPR = @ISCO_EMPR 
                  And CO_TIPO_OPER = @ISCO_TIOP_0001
          if @@error <> 0
               begin
                 rollback tran 

               return
              end
  
  
 --- Configuracion x Pantallas  
  Insert TRTIOP_OPCI (  
  CO_EMPR, CO_FORM, CO_TIPO_OPER,   
  CO_USUA_CREA, CO_USUA_MODI )  
  Select   CO_EMPR, CO_FORM, @ISCO_TIOP_0002,   
  @ISCO_USUA, @ISCO_USUA  
  From TRTIOP_OPCI  
     Where CO_EMPR = @ISCO_EMPR   
     AND   CO_TIPO_OPER = @ISCO_TIOP_0001  
        if @@error <> 0  
           Begin  
             rollback Tran SP_TTTIPO_OPER_I02  
             return  
           end  
  
Commit Tran SP_TTTIPO_OPER_I02  
  
/************************** fin *********************************/


GO
